home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Corel Professional Photos 133: Perennials in Bloom
/
Corel Professional Photos - 1994 - 133 - Perennials in Bloom.ISO
/
utils
/
setup
/
corelcd.mst
< prev
next >
Wrap
Text File
|
1993-09-23
|
23KB
|
773 lines
'**************************************************************************
'* MSSetup Toolkit - Corel Professional Photos Setup *
'**************************************************************************
'$DEFINE DEBUG ''Define for script development/debugging
'$INCLUDE 'setupapi.inc'
'$INCLUDE 'msdetect.inc'
CONST WS_VISIBLE=&H10000000
CONST WS_BORDER =&H00800000
CONST WS_CLIPCHILDREN =&H02000000
CONST GWL_STYLE =-16
CONST SW_SHOWMAXIMIZED=3
DECLARE FUNCTION ShowWindow LIB "user.exe" (hWnd%,iShow%) AS INTEGER
DECLARE FUNCTION SetWindowLong LIB "user.exe" (hWnd%,offset%,style&) AS LONG
hWnd%=HwndFrame()
sti&=SetWindowLong(hWnd%,GWL_STYLE,WS_VISIBLE+WS_BORDER+WS_CLIPCHILDREN)
stj%=ShowWindow(hWnd%,SW_SHOWMAXIMIZED)
''Dialog ID's
CONST WELCOME = 100
CONST ASKQUIT = 200
CONST DESTPATH = 300
CONST EXITFAILURE = 400
CONST EXITQUIT = 600
CONST EXITSUCCESS = 700
CONST APPHELP = 900
CONST CUSTINST = 6200
CONST TOOBIG = 6300
CONST BADPATH = 6400
CONST MOSAIC = 7100
CONST PCDSCSI = 7200
CONST CDAUDIO = 7300
''Bitmap ID
CONST LOGO = 1
''File Types
CONST PCDLABFILES = 1
CONST PCDMOSFILES = 2
CONST PCDAUDFILES = 3
CONST PCDSCRFILES = 4
CONST PCDWALFILES = 5
GLOBAL DEST$ ''Default destination directory.
GLOBAL WINDRIVE$ ''Windows drive letter.
GLOBAL OPT1OPT$ ''Option selection from OptFiles1 option dialog.
GLOBAL OPT2OPT$ ''Option selection from OptFiles2 option dialog.
GLOBAL OPT3OPT$ ''Option selection from OptFiles3 option dialog.
GLOBAL OPT4OPT$ ''Option selection from OptFiles4 option dialog.
GLOBAL MosDir$ ''Location of old mosaic program, if found.
GLOBAL MosFlag$ ''Flag for old mosaic program, if found.
FLAG1$ ="No" '' Copy flags for
FLAG2$ ="No" '' DLL files that go
FLAG3$ ="No" '' into WindowsDir and WindowsSysDir
''CustInst list symbol names
GLOBAL PCDLABNEEDS$ ''Option list costs per drive
GLOBAL PCDMOSNEEDS$
GLOBAL PCDAUDNEEDS$
GLOBAL PCDSCRNEEDS$
GLOBAL PCDWALNEEDS$
GLOBAL EXTRACOSTS$ ''List of extra costs to add per drive
GLOBAL BIGLIST$ ''List of option files cost calc results (boolean)
''Dialog list symbol names
GLOBAL CHECKSTATES$
GLOBAL STATUSTEXT$
GLOBAL DRIVETEXT$
DECLARE SUB AddOptFilesToCopyList (ftype%)
DECLARE SUB RecalcOptFiles (ftype%)
DECLARE SUB RecalcPath
DECLARE SUB SetDriveStatus
DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
INIT:
CUIDLL$ = "mscuistf.dll" ''custom user interface dll
HELPPROC$ = "FHelpDlgProc" ''Help dialog procedure
SetBitmap CUIDLL$, LOGO
SetTitle "Corel Professional Photos Setup"
szInf$ = GetSymbolValue("STF_SRCINFPATH")
IF szInf$ = "" THEN
szInf$ = GetSymbolValue("STF_CWDDIR") + "CORELCD.INF"
END IF
ReadInfFile szInf$
WINDRIVE$ = MID$(GetWindowsDir, 1, 1)
WINDIR$ = GetWindowsDir()
DEST$ = WINDRIVE$ + ":\CORELCD"
''CustInst list symbols
CHECKSTATES$ = "CheckItemsState"
STATUSTEXT$ = "StatusItemsText"
DRIVETEXT$ = "DriveStatusText"
FOR i% = 1 TO 8 STEP 1
AddListItem CHECKSTATES$, "ON"
NEXT i%
FOR i% = 1 TO 8 STEP 1
AddListItem STATUSTEXT$, ""
NEXT i%
FOR i% = 1 TO 7 STEP 1
AddListItem DRIVETEXT$, ""
NEXT i%
ReplaceListItem DRIVETEXT$, 7, DEST$
''Disk cost list symbols
PCDLABNEEDS$ = "PcdLabNeeds"
PCDMOSNEEDS$ = "PcdMosNeeds"
PCDAUDNEEDS$ = "PcdAudNeeds"
PCDSCRNEEDS$ = "PcdScrNeeds"
PCDWALNEEDS$ = "PcdWalNeeds"
EXTRACOSTS$ = "ExtraCosts"
BIGLIST$ = "BigList"
FOR i% = 1 TO 5 STEP 1
AddListItem BIGLIST$, ""
NEXT i%
FOR i% = 1 TO 26 STEP 1
AddListItem EXTRACOSTS$, "0"
NEXT i%
''File Option Variables
OPT1OPT$ = "1"
OPT2OPT$ = "1"
OPT3OPT$ = "1"
OPT4OPT$ = "1"
RecalcPath
SetDriveStatus
'$IFDEF DEBUG
i% = SetSizeCheckMode(scmOnIgnore) '' could use scmOff; def = scmOnFatal
'$ENDIF ''DEBUG
WELCOME:
sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
IF sz$ = "CONTINUE" THEN
UIPop 1
ELSE
GOSUB ASKQUIT
GOTO WELCOME
END IF
CUSTINST:
sz$ = UIStartDlg(CUIDLL$, CUSTINST, "FCustInstDlgProc", APPHELP, HELPPROC$)
IF sz$ = "CONTINUE" THEN
''Install only if it will fit.
FOR i% = 1 TO 5 STEP 1
IF GetListItem(BIGLIST$, i%) <> "" THEN
GOSUB TOOBIG
GOTO CUSTINST
END IF
NEXT i%
UIPop 1
GOTO INSTALL
ELSEIF sz$ = "PATH" THEN
GOTO GETPATH
ELSEIF sz$ = "CHK1" THEN
RecalcOptFiles PCDLABFILES
SetDriveStatus
GOTO CUSTINST
ELSEIF sz$ = "CHK2" THEN
RecalcOptFiles PCDMOSFILES
SetDriveStatus
GOTO CUSTINST
ELSEIF sz$ = "CHK3" THEN
RecalcOptFiles PCDAUDFILES
SetDriveStatus
GOTO CUSTINST
ELSEIF sz$ = "CHK4" THEN
RecalcOptFiles PCDSCRFILES
SetDriveStatus
GOTO CUSTINST
ELSEIF sz$ = "CHK5" THEN
RecalcOptFiles PCDWALFILES
SetDriveStatus
GOTO CUSTINST
ELSEIF sz$ = "BTN2" THEN
GOTO PCDMOSFILES
ELSEIF sz$ = "BTN3" THEN
GOTO PCDAUDFILES
ELSEIF sz$ = "BTN4" THEN
GOTO PCDSCRFILES
ELSEIF sz$ = "BTN5" THEN
GOTO PCDWALFILES
ELSEIF sz$ = "REACTIVATE" THEN
RecalcPath
SetDriveStatus
GOTO CUSTINST
ELSE
GOSUB ASKQUIT
GOTO CUSTINST
END IF
INSTALL:
ClearCopyList
AddOptFilesToCopyList PCDLABFILES
AddOptFilesToCopyList PCDMOSFILES
AddOptFilesToCopyList PCDAUDFILES
AddOptFilesToCopyList PCDSCRFILES
AddOptFilesToCopyList PCDWALFILES
CreateDir DEST$, cmoNone
IF GetListItem(CHECKSTATES$, PCDLABFILES) = "ON" THEN
IF DoesIniKeyExist("WIN.INI", "PhotoCD Lab", "Dir") = 1 THEN
PcdDir$ = GetIniKeyString("WIN.INI", "PhotoCD Lab", "Dir")
IF DoesFileExist(PcdDir$ + "\PCDSCSI.EXE", femReadWrite) = 1 THEN
SetSymbolValue "ConfirmTextIn", PcdDir$
SetSymbolValue "EditFocus", "END"
sz$ = UIStartDlg(CUIDLL$, PCDSCSI, "FConfirmDlgProc", APPHELP, HELPPROC$)
IF sz$ = "BACK" THEN
UIPop 1
GOTO CUSTINST
ELSEIF sz$ = "CONTINUE" THEN
UIPop 1
END IF
END IF
END IF
IF PcdDir$ <> "" THEN
CreateIniKeyValue "WIN.INI", "PhotoCD Lab", "Dir", PcdDir$, cmoOverwrite
ELSE
CreateIniKeyValue "WIN.INI", "PhotoCD Lab", "Dir", DEST$ + "\PCDLAB", cmoOverwrite
END IF
END IF
IF GetListItem(CHECKSTATES$, PCDMOSFILES) = "ON" THEN
IF MosFlag$ <> "" THEN
SetSymbolValue "ConfirmTextIn", MosDir$
SetSymbolValue "EditFocus", "END"
sz$ = UIStartDlg(CUIDLL$, MOSAIC, "FConfirmDlgProc", APPHELP, HELPPROC$)
IF sz$ = "BACK" THEN
UIPop 1
GOTO CUSTINST
ELSEIF sz$ = "CONTINUE" THEN
UIPop 1
END IF
ELSEIF MosFlag$ = "" AND MOSDIR$ <> "" THEN
'' Just sit there for now
ELSE
CreateIniKeyValue "WIN.INI", "CorelGraphics4", "Dir", DEST$ + "\MOSAIC\CONFIG", cmoOverwrite
CreateDir DEST$ + "\MOSAIC\CONFIG", cmoNone
CreateIniKeyValue DEST$ + "\MOSAIC\CONFIG\CORELAPP.INI", "Config", "ProgramsDir", DEST$ + "\MOSAIC\PROGRAMS", cmoOverwrite
CreateIniKeyValue DEST$ + "\MOSAIC\CONFIG\CORELAPP.INI", "Config", "CustomDir", DEST$ + "\MOSAIC\CUSTOM", cmoOverwrite
CreateIniKeyValue DEST$ + "\MOSAIC\CONFIG\CORELAPP.INI", "Config", "MosaicDir", DEST$ + "\MOSAIC\PROGRAMS", cmoOverwrite
CreateIniKeyValue DEST$ + "\MOSAIC\CONFIG\CORELAPP.INI", "Config", "FiltersDir", DEST$ + "\MOSAIC\PROGRAMS", cmoOverwrite
CreateIniKeyValue DEST$ + "\MOSAIC\CONFIG\CORELAPP.INI", "Config", "DataDir", DEST$ + "\MOSAIC\PROGRAMS\DATA", cmoOverwrite
END IF
END IF
IF GetListItem(CHECKSTATES$, PCDAUDFILES) = "ON" THEN
IF DoesIniKeyExist("WIN.INI", "CorelSCSI", "CD-Audio") = 1 THEN
CDAudioDir$ = GetIniKeyString("WIN.INI", "CorelSCSI", "CD-Audio")
IF DoesFileExist(CDAudioDir$ + "\CD_AUDIO.EXE", femReadWrite) = 1 THEN
SetSymbolValue "ConfirmTextIn", CDAudioDir$
SetSymbolValue "EditFocus", "END"
sz$ = UIStartDlg(CUIDLL$, CDAUDIO, "FConfirmDlgProc", APPHELP, HELPPROC$)
IF sz$ = "BACK" THEN
UIPop 1
GOTO CUSTINST
ELSEIF sz$ = "CONTINUE" THEN
UIPop 1
END IF
END IF
END IF
CreateIniKeyValue "WIN.INI", "CorelSCSI", "CD-Audio", DEST$ + "\PCDAUDIO", cmoOverwrite
END IF
CopyFilesInCopyList
InstDrive$=MID$(DEST$,1,2)
IF GetListItem(CHECKSTATES$, PCDLABFILES) = "ON" THEN
CreateProgmanGroup "Corel CD-ROM Utilities", "", cmoNone
ShowProgmanGroup "Corel Cd-ROM Utilities", 1, cmoNone
CreateProgmanItem "Corel CD-ROM Utilities", "PhotoCD Lab", MakePath(DEST$, "pcdlab\pcdscsi.exe "), "", cmoOverwrite
END IF
IF GetListItem(CHECKSTATES$, PCDMOSFILES) = "ON" THEN
ShowProgmanGroup "Corel CD-ROM Utilities", 1, cmoNone
IF MosDir$ <> "" THEN
CreateProgmanItem "Corel CD-ROM Utilities", "CorelMOSAIC!", MosDir$ + "\CORELMOS.EXE", "", cmoOverwrite
ELSE
CreateProgmanItem "Corel CD-ROM Utilities", "CorelMOSAIC!", MakePath(DEST$, "mosaic\programs\corelmos.exe "), "", cmoOverwrite
CreateIniKeyValue DEST$ + "\MOSAIC\CONFIG\CORELFLT.INI", "ColorPath", "CircuitPath", DEST$ + "\MOSAIC\CUSTOM", cmoOverwrite
CreateIniKeyValue DEST$ + "\MOSAIC\CONFIG\CORELFLT.INI", "ColorPath", "CurvePath", DEST$ + "\MOSAIC\CUSTOM", cmoOverwrite
CreateIniKeyValue DEST$ + "\MOSAIC\CONFIG\CORELPRN.INI", "ColorPath", "CircuitPath", DEST$ + "\MOSAIC\CUSTOM", cmoOverwrite
END IF
END IF
IF GetListItem(CHECKSTATES$, PCDAUDFILES) = "ON" THEN
ShowProgmanGroup "Corel CD-ROM Utilities", 1, cmoNone
CreateProgmanItem "Corel CD-ROM Utilities", "CD Audio", MakePath(DEST$, "pcdaudio\cd_audio.exe "), "", cmoOverwrite
END IF
IF GetListItem(CHECKSTATES$, PCDSCRFILES) = "ON" THEN
ShowProgmanGroup "Corel CD-ROM Utilities", 1, cmoNone
END IF
IF GetListItem(CHECKSTATES$, PCDWALFILES) = "ON" THEN
ShowProgmanGroup "Corel CD-ROM Utilities", 1, cmoNone
CreateProgmanItem "Corel CD-ROM Utilities", "Wallpaper Flipper Configuration", MakePath(GetWindowsDir, "wflipcnf.exe"), "", cmoOverwrite
END IF
CreateProgmanItem "Corel CD-ROM Utilities", "Professional Photos ReadMe", "notepad.exe "+MakePath(DEST$,"readme.txt"), "", cmoOverwrite
QUIT:
ON ERROR GOTO ERRQUIT
IF ERR = 0 THEN
dlg% = EXITSUCCESS
ELSEIF ERR = STFQUIT THEN
dlg% = EXITQUIT
ELSE
dlg% = EXITFAILURE
END IF
QUITL1:
sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
IF sz$ = "REACTIVATE" THEN
GOTO QUITL1
END IF
UIPop 1
END
ERRQUIT:
i% = DoMsgBox("Setup sources were corrupted, call Corel Tech Support", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
END
GETPATH:
SetSymbolValue "EditTextIn", DEST$
SetSymbolValue "EditFocus", "END"
GETPATHL1:
sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
IF sz$ = "CONTINUE" THEN
olddest$ = DEST$
DEST$ = GetSymbolValue("EditTextOut")
''Validate new path.
IF IsDirWritable(DEST$) = 0 THEN
GOSUB BADPATH
GOTO GETPATHL1
END IF
UIPop 1
''Truncate display if too long.
IF LEN(DEST$) > 23 THEN
ReplaceListItem DRIVETEXT$, 7, MID$(DEST$, 1, 23)+"..."
ELSE
ReplaceListItem DRIVETEXT$, 7, DEST$
END IF
''Recalc if path changed.
IF (olddest$ <> DEST$) AND (olddest$ <> DEST$+"\") AND (olddest$+"\" <> DEST$) THEN
RecalcPath
SetDriveStatus
END IF
olddest$ = ""
GOTO CUSTINST
ELSEIF sz$ = "REACTIVATE" THEN
RecalcPath
SetDriveStatus
GOTO GETPATHL1
ELSEIF sz$ = "EXIT" THEN
GOSUB ASKQUIT
GOTO GETPATHL1
ELSE
UIPop 1
GOTO CUSTINST
END IF
PCDMOSFILES:
SetSymbolValue "RadioDefault", OPT1OPT$
OPT1L1:
sz$ = UIStartDlg(CUIDLL$, OPTIONS, "FRadioDlgProc", APPHELP, HELPPROC$)
newopt$ = GetSymbolValue("ButtonChecked")
IF sz$ = "CONTINUE" THEN
UIPop 1
IF newopt$ <> OPT1OPT$ THEN
OPT1OPT$ = newopt$
RecalcOptFiles PCDMOSFILES
SetDriveStatus
END IF
newopt$ = ""
GOTO CUSTINST
ELSEIF sz$ = "REACTIVATE" THEN
RecalcPath
SetDriveStatus
GOTO OPT1L1
ELSEIF sz$ = "EXIT" THEN
GOSUB ASKQUIT
GOTO OPT1L1
ELSE
UIPop 1
newopt$ = ""
GOTO CUSTINST
END IF
PCDAUDFILES:
SetSymbolValue "RadioDefault", OPT2OPT$
OPT2L1:
sz$ = UIStartDlg(CUIDLL$, OPTIONS, "FRadioDlgProc", APPHELP, HELPPROC$)
newopt$ = GetSymbolValue("ButtonChecked")
IF sz$ = "CONTINUE" THEN
UIPop 1
IF newopt$ <> OPT2OPT$ THEN
OPT2OPT$ = newopt$
RecalcOptFiles PCDAUDFILES
SetDriveStatus
END IF
newopt$ = ""
GOTO CUSTINST
ELSEIF sz$ = "REACTIVATE" THEN
RecalcPath
SetDriveStatus
GOTO OPT2L1
ELSEIF sz$ = "EXIT" THEN
GOSUB ASKQUIT
GOTO OPT2L1
ELSE
UIPop 1
newopt$ = ""
GOTO CUSTINST
END IF
PCDSCRFILES:
SetSymbolValue "RadioDefault", OPT3OPT$
OPT3L1:
sz$ = UIStartDlg(CUIDLL$, OPTIONS, "FRadioDlgProc", APPHELP, HELPPROC$)
newopt$ = GetSymbolValue("ButtonChecked")
IF sz$ = "CONTINUE" THEN
UIPop 1
IF newopt$ <> OPT1OPT$ THEN
OPT3OPT$ = newopt$
RecalcOptFiles PCDSCRFILES
SetDriveStatus
END IF
newopt$ = ""
GOTO CUSTINST
ELSEIF sz$ = "REACTIVATE" THEN
RecalcPath
SetDriveStatus
GOTO OPT3L1
ELSEIF sz$ = "EXIT" THEN
GOSUB ASKQUIT
GOTO OPT3L1
ELSE
UIPop 1
newopt$ = ""
GOTO CUSTINST
END IF
PCDWALFILES:
SetSymbolValue "RadioDefault", OPT4OPT$
OPT4L1:
sz$ = UIStartDlg(CUIDLL$, OPTIONS, "FRadioDlgProc", APPHELP, HELPPROC$)
newopt$ = GetSymbolValue("ButtonChecked")
IF sz$ = "CONTINUE" THEN
UIPop 1
IF newopt$ <> OPT4OPT$ THEN
OPT4OPT$ = newopt$
RecalcOptFiles PCDWALFILES
SetDriveStatus
END IF
newopt$ = ""
GOTO CUSTINST
ELSEIF sz$ = "REACTIVATE" THEN
RecalcPath
SetDriveStatus
GOTO OPT4L1
ELSEIF sz$ = "EXIT" THEN
GOSUB ASKQUIT
GOTO OPT4L1
ELSE
UIPop 1
newopt$ = ""
GOTO CUSTINST
END IF
TOOBIG:
sz$ = UIStartDlg(CUIDLL$, TOOBIG, "FInfo0DlgProc", 0, "")
IF sz$ = "REACTIVATE" THEN
RecalcPath
SetDriveStatus
GOTO TOOBIG
END IF
UIPop 1
RETURN
BADPATH:
sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
IF sz$ = "REACTIVATE" THEN
RecalcPath
SetDriveStatus
GOTO BADPATH
END IF
UIPop 1
RETURN
ASKQUIT:
sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
IF sz$ = "EXIT" THEN
UIPopAll
ERROR STFQUIT
ELSEIF sz$ = "REACTIVATE" THEN
GOTO ASKQUIT
ELSE
UIPop 1
END IF
RETURN
'**
'** Purpose:
'** Adds the specified option files to the copy list.
'** Arguments:
'** ftype% - type of files to add, one of the following:
'** PCDLABFILES, PCDAUDFILES, PCDMOSFILES, PCDSCRFILES, PCDWALFILES
'** Returns:
'** none.
'*************************************************************************
SUB AddOptFilesToCopyList (ftype%) STATIC
IF GetListItem(CHECKSTATES$, ftype%) = "ON" THEN
SrcDir$ = GetSymbolValue("STF_SRCDIR")
WinDirLen = LEN(GetWindowsDir)-1
WinDir$ = MID$(GetWindowsDir,1,WinDirLen)
InstDrive$ = MID$(DEST$,1,2)
IF ftype% = PCDLABFILES THEN
AddSectionFilesToCopyList "PcdLabFiles", SrcDir$, DEST$ + "\PCDLAB"
FLAG1$="Yes"
FLAG2$="Yes"
FLAG3$="Yes"
ELSEIF ftype% = PCDMOSFILES THEN
IF DoesIniKeyExist("WIN.INI", "CorelGraphics4", "Dir") = 1 THEN
CorelAppDir$ = GetIniKeyString("WIN.INI", "CorelGraphics4", "Dir")
MosDir$ = GetIniKeyString(CorelAppDir$ + "\CORELAPP.INI", "Config", "ProgramsDir")
IF MosDir$ <> "" AND DoesFileExist(MosDir$ + "\CORELMOS.EXE", femReadWrite) = 1 THEN
MosFlag$ = "Yes"
ELSE
MosFlag$ = ""
END IF
AddSectionFilesToCopyList "PcdMosFiles", SrcDir$, MosDir$
AddSectionFilesToCopyList "PcdMosUtils", SrcDir$, MosDir$
ELSE
AddSectionFilesToCopyList "PcdMosFiles", SrcDir$, DEST$ + "\MOSAIC\PROGRAMS"
AddSectionFilesToCopyList "PcdMosUtils", SrcDir$, DEST$ + "\MOSAIC\CUSTOM"
AddSectionFilesToCopyList "PcdMosInis", SrcDir$, DEST$ + "\MOSAIC\CONFIG"
AddSectionFilesToCopyList "PcdMosData", SrcDir$, DEST$ + "\MOSAIC\PROGRAMS\DATA"
END IF
FLAG1$="Yes"
FLAG3$="Yes"
ELSEIF ftype% = PCDAUDFILES THEN
AddSectionFilesToCopyList "PcdAudFiles", SrcDir$, DEST$ + "\PCDAUDIO"
ELSEIF ftype% = PCDSCRFILES THEN
AddSectionFilesToCopyList "PcdScrFiles", SrcDir$, GetWindowsDir
FLAG3$="Yes"
ELSEIF ftype% = PCDWALFILES THEN
AddSectionFilesToCopyList "PcdWalFiles", SrcDir$, GetWindowsDir
END IF
IF FLAG1$="Yes" THEN
CreateIniKeyValue "WIN.INI", "Extensions", "PCD", DEST$ + "\PCDLAB\PCDSCSI.EXE ^.PCD", cmoNone
AddSectionFilesToCopyList "PcdDllFiles", SrcDir$, GetWindowsSysDir
IF DoesFileExist(GetWindowsDir + "PCDLIB.DLL", femReadWrite) =1 THEN
RemoveFile GetWindowsDir + "PCDLIB.DLL", cmoNone
END IF
IF DoesFileExist(GetWindowsDir + "PCDXTIF.DLL", femReadWrite) =1 THEN
RemoveFile GetWindowsDir + "PCDXTIF.DLL", cmoNone
END IF
IF DoesFileExist(GetWindowsDir + "PCDXEPS.DLL", femReadWrite) =1 THEN
RemoveFile GetWindowsDir + "PCDXEPS.DLL", cmoNone
END IF
IF DoesFileExist(GetWindowsDir + "PCDXPCX.DLL", femReadWrite) =1 THEN
RemoveFile GetWindowsDir + "PCDXPCX.DLL", cmoNone
END IF
IF DoesFileExist(GetWindowsDir + "PCDXBMP.DLL", femReadWrite) =1 THEN
RemoveFile GetWindowsDir + "PCDXBMP.DLL", cmoNone
END IF
END IF
IF FLAG2$="Yes" THEN
AddSectionFilesToCopyList "PcdCtlFile", SrcDir$, GetWindowsSysDir
END IF
IF FLAG3$="Yes" THEN
AddSectionFilesToCopyList "PcdDllFile", SrcDir$, GetWindowsSysDir
END IF
AddSectionFilesToCopyList "PcdReadMe", SrcDir$, DEST$
FLAG1$="No"
FLAG2$="No"
FLAG3$="No"
SrcDir$ = ""
END IF
END SUB
'**
'** Purpose:
'** Recalculates disk space for the given option files and sets
'** the status info symbol "StatusItemsText".
'** Arguments:
'** ftype% - type of files to add, one of the following:
'** PCDLABFILES, PCDMOSFILES, PCDAUDFILES, PCDSCRFILES, PCDWALFILES
'** Returns:
'** none.
'*************************************************************************
SUB RecalcOptFiles (ftype%) STATIC
CursorSave% = ShowWaitCursor()
ClearCopyList
AddOptFilesToCopyList ftype%
fExtra% = 0
IF ftype% = PCDLABFILES THEN
ListSym$ = PCDLABNEEDS$
IF GetListItem(CHECKSTATES$, PCDLABFILES) = "ON" THEN
''Add extra cost to Windows drive for ini/progman, etc.
ndrive% = ASC(ucase$(WINDRIVE$)) - ASC("A") + 1
ReplaceListItem EXTRACOSTS$, ndrive%, "0"
fExtra% = 1
END IF
ELSEIF ftype% = PCDMOSFILES THEN
ListSym$ = PCDMOSNEEDS$
ELSEIF ftype% = PCDAUDFILES THEN
ListSym$ = PCDAUDNEEDS$
ELSEIF ftype% = PCDSCRFILES THEN
ListSym$ = PCDSCRNEEDS$
ELSEIF ftype% = PCDWALFILES THEN
ListSym$ = PCDWALNEEDS$
END IF
StillNeed& = GetCopyListCost(EXTRACOSTS$, ListSym$, "")
cost& = 0
FOR i% = 1 TO 26 STEP 1
cost& = cost& + VAL(GetListItem(ListSym$, i%))
NEXT i%
ReplaceListItem STATUSTEXT$, ftype%, STR$(cost& / 1024) + " K"
IF StillNeed& > 0 THEN
ReplaceListItem BIGLIST$, ftype%, "YES"
ELSE
ReplaceListItem BIGLIST$, ftype%, ""
END IF
' IF fExtra% THEN
' ReplaceListItem EXTRACOSTS$, ndrive%, "10240"
' END IF
RestoreCursor CursorSave%
ListSym$ = ""
END SUB
'**
'** Purpose:
'** Recalculates disk space and sets option status info according
'** to the current destination path.
'** Arguments:
'** none.
'** Returns:
'** none.
'*************************************************************************
SUB RecalcPath STATIC
CursorSave% = ShowWaitCursor()
RecalcOptFiles PCDLABFILES
RecalcOptFiles PCDMOSFILES
RecalcOptFiles PCDAUDFILES
RecalcOptFiles PCDSCRFILES
RecalcOptFiles PCDWALFILES
RestoreCursor CursorSave%
END SUB
'**
'** Purpose:
'** Sets drive status info according to latest disk space calcs.
'** Arguments:
'** none.
'** Returns:
'** none.
'*************************************************************************
SUB SetDriveStatus STATIC
drive$ = MID$(DEST$, 1, 1)
ndrive% = ASC(ucase$(drive$)) - ASC("A") + 1
cost& = VAL(GetListItem(PCDLABNEEDS$, ndrive%)) + VAL(GetListItem(PCDMOSNEEDS$, ndrive%)) + VAL(GetListItem(PCDAUDNEEDS$, ndrive%)) + VAL(GetListItem(PCDSCRNEEDS$, ndrive%)) + VAL(GetListItem(PCDWALNEEDS$, ndrive%))
free& = GetFreeSpaceForDrive(drive$)
ReplaceListItem DRIVETEXT$, 1, drive$ + ":"
ReplaceListItem DRIVETEXT$, 2, STR$(cost& / 1024) + " K"
ReplaceListItem DRIVETEXT$, 3, STR$(free& / 1024) + " K"
IF drive$ = WINDRIVE$ THEN
ReplaceListItem DRIVETEXT$, 4, ""
ReplaceListItem DRIVETEXT$, 5, ""
ReplaceListItem DRIVETEXT$, 6, ""
ELSE
ndrive% = ASC(ucase$(WINDRIVE$)) - ASC("A") + 1
cost& = VAL(GetListItem(PCDLABNEEDS$, ndrive%)) + VAL(GetListItem(PCDMOSNEEDS$, ndrive%)) + VAL(GetListItem(PCDAUDNEEDS$, ndrive%)) + VAL(GetListItem(PCDSCRNEEDS$, ndrive%)) + VAL(GetListItem(PCDWALNEEDS$, ndrive%))
IF cost& = 0 THEN
ReplaceListItem DRIVETEXT$, 4, ""
ReplaceListItem DRIVETEXT$, 5, ""
ReplaceListItem DRIVETEXT$, 6, ""
ELSE
free& = GetFreeSpaceForDrive(WINDRIVE$)
ReplaceListItem DRIVETEXT$, 4, WINDRIVE$ + ":"
ReplaceListItem DRIVETEXT$, 5, STR$(cost& / 1024) + " K"
ReplaceListItem DRIVETEXT$, 6, STR$(free& / 1024) + " K"
END IF
END IF
END SUB
'**
'** Purpose:
'** Appends a file name to the end of a directory path,
'** inserting a backslash character as needed.
'** Arguments:
'** szDir$ - full directory path (with optional ending "\")
'** szFile$ - filename to append to directory
'** Returns:
'** Resulting fully qualified path name.
'*************************************************************************
FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
IF szDir$ = "" THEN
MakePath = szFile$
ELSEIF szFile$ = "" THEN
MakePath = szDir$
ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
MakePath = szDir$ + szFile$
ELSE
MakePath = szDir$ + "\" + szFile$
END IF
END FUNCTION